﻿Public Class frmModuloAlmacen

    Private Sub EliminarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem.Click
        If UCase(UsuarioActivo.Trim) <> "ADMINISTRADOR" Then
            If TienePermiso("frmAlmacen") = True Then
                frmAlmacen.ShowDialog()
            Else
                MsgBox("No tiene permiso para ingresar a esta opcion", MsgBoxStyle.Exclamation, "Aviso")
            End If
        Else
            frmAlmacen.ShowDialog()
        End If
    End Sub

    Private Sub frmModuloAlmacen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStrip1.Cursor = Cursors.Hand
        ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub
End Class